home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / Salsa 0.3 / t < prev   
Encoding:
Text File  |  1996-04-30  |  228 b   |  20 lines  |  [TEXT/KAHL]
  1. def Ask()
  2. {
  3.     print("Type something: ");
  4.     x = input();
  5.     println("You typed ",x);
  6. }
  7.  
  8. def InfLoop()
  9. {
  10.     while (1) { print("*"); }
  11. }
  12.  
  13. def main()
  14. {
  15.     inf = thread InfLoop();
  16.     println("Start");
  17.     Ask();
  18.     inf.abort();
  19.     println("\nEnd");
  20. }